home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / os2 / zoc205.zip / INSTALL.FIL / SCRIPT / PATCHZOC.RX < prev    next >
Text File  |  1995-01-15  |  444b  |  24 lines
  1.  
  2. /* THIS IS A REXX PROGRAM THAT CAN BE USED TO PATCH BUGS OUT OF ZOC */
  3. /* DON'T USE WITHOUT INSTRUCTIONS FROM THE ZOC AUTHOR! */
  4.  
  5. n.1= 0 
  6. n.2= 0 
  7. old= 00
  8. new= 00
  9.  
  10. name= zoc.exe
  11.  
  12. if stream(name, c, open)=="READY:" then do 
  13.     do i=1 to 2 
  14.         if (c2x(charin(name, n.i, 3))==old) then do
  15.             call charout name, x2c(new), n.i
  16.             say OK!
  17.         end 
  18.     end
  19.     call stream name, c, close
  20. end
  21.  
  22. /* END - running this should output 'OK!' */
  23.  
  24.